inherited fmVacation: TfmVacation
  Left = 519
  Top = 199
  Width = 472
  Height = 391
  Caption = #1054#1090#1087#1091#1089#1082#1080' '#1080' '#1073#1086#1083#1100#1085#1080#1095#1085#1099#1077
  Constraints.MinHeight = 391
  Constraints.MinWidth = 472
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 326
    Width = 456
  end
  inherited Panel1: TPanel
    Width = 456
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 281
    end
    inherited BitBtn2: TBitBtn
      Left = 369
    end
  end
  object dbgVacation: TcxGrid [2]
    Left = 0
    Top = 71
    Width = 456
    Height = 255
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    LookAndFeel.Kind = lfStandard
    object tvVacation: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      OnCellDblClick = tvVacationCellDblClick
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'VID'
          Column = tvVacationVID
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 5
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvVacationVID: TcxGridDBColumn
        Caption = 'ID'
        DataBinding.FieldName = 'VID'
        Width = 43
      end
      object tvVacationPP: TcxGridDBColumn
        Caption = #1060#1048#1054' '#1089#1086#1090#1088'.'
        DataBinding.FieldName = 'PP'
        Width = 174
      end
      object tvVacationSDNAME: TcxGridDBColumn
        Caption = #1058#1080#1087' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        DataBinding.FieldName = 'SDNAME'
        Width = 111
      end
      object tvVacationVDATE_BEGIN: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        DataBinding.FieldName = 'VDATE_BEGIN'
        Width = 89
      end
      object tvVacationVDATE_END: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        DataBinding.FieldName = 'VDATE_END'
        Width = 133
      end
      object tvVacationVNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090'.'
        DataBinding.FieldName = 'VNOTE'
        Width = 204
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = tvVacation
    end
  end
  inherited dlgDS: TDataSource
    DataSet = fdsVacation
    Left = 272
    Top = 8
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    AutoDockColor = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    DockColor = clBtnFace
    ImageOptions.Images = DMInv.cxSmallImages
    NotDocking = [dsNone]
    PopupMenuLinks = <>
    ShowHint = False
    UseSystemFont = True
    Left = 312
    Top = 8
    DockControlHeights = (
      0
      0
      26
      0)
    object dxBarManager1Bar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 1'
      CaptionButtons = <>
      DockedDockingStyle = dsTop
      DockedLeft = 0
      DockedTop = 0
      DockingStyle = dsTop
      FloatLeft = 349
      FloatTop = 384
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbAdd'
        end
        item
          Visible = True
          ItemName = 'bbEdit'
        end
        item
          Visible = True
          ItemName = 'bbDel'
        end
        item
          BeginGroup = True
          UserDefine = [udWidth]
          UserWidth = 231
          Visible = True
          ItemName = 'eDate'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object eDate: TcxBarEditItem
      Caption = #1048#1085#1090#1077#1088#1074#1072#1083' '#1076#1083#1103' '#1087#1086#1080#1089#1082#1072':'
      Category = 0
      Hint = #1048#1085#1090#1077#1088#1074#1072#1083' '#1076#1083#1103' '#1087#1086#1080#1089#1082#1072':'
      Visible = ivAlways
      OnChange = eDateChange
      ShowCaption = True
      Width = 100
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end>
      Properties.ReadOnly = True
      Properties.OnButtonClick = eDatePropertiesButtonClick
      InternalEditValue = ''
    end
    object bbAdd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
      OnClick = bbAddClick
    end
    object bbEdit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
      OnClick = bbEditClick
    end
    object bbDel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
      OnClick = bbDelClick
    end
  end
  object fdsVacation: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select v.VID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      'sd.SDNAME, v.VDATE_BEGIN, v.VDATE_END, v.VNOTE'
      'from vacation v'
      'INNER JOIN SYS_DIC sd ON sd.SDID = v.VTYPE'
      'INNER JOIN PEOPLE p ON p.PID = v.PID'
      'where v.VDATE_END >= :date_begin AND v.VDATE_BEGIN <= :date_end'
      'and v.visdelete is null')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 232
    Top = 8
    object fdsVacationVID: TFIBIntegerField
      FieldName = 'VID'
      Origin = 'VACATION.VID'
    end
    object fdsVacationPP: TFIBStringField
      FieldName = 'PP'
      Size = 767
      EmptyStrToNull = True
    end
    object fdsVacationSDNAME: TFIBStringField
      FieldName = 'SDNAME'
      Origin = 'SYS_DIC.SDNAME'
      Size = 255
      EmptyStrToNull = True
    end
    object fdsVacationVDATE_BEGIN: TFIBDateField
      FieldName = 'VDATE_BEGIN'
      Origin = 'VACATION.VDATE_BEGIN'
    end
    object fdsVacationVDATE_END: TFIBDateField
      FieldName = 'VDATE_END'
      Origin = 'VACATION.VDATE_END'
    end
    object fdsVacationVNOTE: TFIBStringField
      FieldName = 'VNOTE'
      Size = 2048
      EmptyStrToNull = True
    end
  end
  object fqDelete: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'UPDATE VACATION v SET v.VISDELETE = 1'
      'WHERE v.VID = :vid')
    Left = 352
    Top = 8
  end
end
